Load necessary packages
library(sf)
library(tidyverse)
library(ggthemes)
library(ggspatial)
library(here)
Read in data
Datasets come from The City of Miami’s Open Data Portal
historic_districts <- st_read(here("Data", "Historic_Districts.geojson"), quiet = TRUE)
landmarks <- st_read(here("Data", "Landmarks.geojson"), quiet = TRUE)
This plot shows the locations of all landmarks as well as the outline of historic districts in Miami, Florida. This was an attempt to create a legible plot without using color, though the only black & white basemaps are visually quite busy and detract from the legibility of the plotted shapes and lines.
ggplot() +
annotation_map_tile(zoomin = 0, progress = "none", type = "osmgrayscale") +
geom_sf(data = historic_districts, color = "Black", fill = NA, size = 0.5) +
geom_sf(data = landmarks, shape = 17, size = 2, alpha = 0.35, color = "Black") +
theme_void()
This map layering landmarks and the historic district in Miami is an example of how too much color can deviate the attention from the map’s purpose. This map, although could be considered a “pretty” map, loses focus of the data presented.
ggplot() +
annotation_map_tile(zoomin = 0, progress = "none", type = "stamenwatercolor") +
geom_sf(data = historic_districts, color = "Blue", aes(fill = "Historic Districts"), alpha = 0.25) +
geom_sf(data = landmarks, aes(color = "Landmarks")) +
scale_fill_manual(values = "Blue", name = " ")+
labs(caption ="Miami landmarks and Historic District map", color = " ") +
theme_void()